Option Explicit
Sub J_Sample011()
    Dim myCBar As CommandBar
    Dim myCbarCnt As CommandBarControl
    Dim i      As Long
    Worksheets(1).Shapes.SelectAll		'Ng
    Selection.Delete
    On Error Resume Next
    Application.CommandBars("FaceId").Delete
    On Error GoTo 0
    Set myCBar = Application.CommandBars.Add(Name:="FaceId")
    Set myCbarCnt = myCBar.Controls.Add(Type:=1)
    For i = 1 To 100				'wnܪƥ
        myCbarCnt.FaceId = i
        myCbarCnt.CopyFace
        With Worksheets(1)
        .Paste
        .Shapes(.Shapes.Count).Top = .Cells(i, 2).Top
        .Shapes(.Shapes.Count).Left = .Cells(i, 2).Left
        .Cells(i, 1).Value = i
        End With
    Next
    myCBar.Delete
    Set myCBar = Nothing			'
    Set myCbarCnt = Nothing
End Sub
